Succinct FSharp 


Page containing not just the syntax but walk you through FSharp concepts through examples and ample explanation. 


FSharp Interactive (fsi) 


Probably the best way to learn F# is using FSharp Interactive (GM). To use it, run EE 


Things to note: 


« To see all commands supported in 


* To quit the tool, run 


+ To terminate your input (be it 


command or your F# code), type Hi at end before pressing Enter key. 
+ If you press enter after typing [EE then BEY would wait for further input even after pressing Enter until you type Jf. 


The fi value 


Run You'll see the following line: 


val int 


Results of expressions like [Jj will be evaluated and stored in a value called 
In the above output, fj has a type BE. 


You can reuse the fi value: 


You cannot try add is of 


to BJ value above as fis type is and 


type. 


The H operator accepts two values of the same type: 


match the type 'i 


Bindings and keyword 


Binding is associating a name with a value or a function. You cannot change the value or function associated with the name. 


e This would be similar to declaring and initializing a constant variable in languages such as C++ or Java. 


+ For example, to create a value storing sum of Ẹ and Ẹ, you can create the following binding using keyword: 


false 


and you will see a surprising output saying boolean value 


has been saved to lil value. This is because in F# =| is only used to compare values. 


To overwrite value stored in BEJ value, use [J operator. However, this won't work because fi 


indings are immutable by default, meaning once value is bind to a name, we cannot 
change it: 


let mutable sum 
val mutable sum: 


J using 


Notice how we can reuse the [sun] binding defined earlier. F# allows us to reuse a binding/variable name. This also allows us to assign different type of data to ga: 


i. For example, the following code with 


The above code is equivalent to: 


+ defining a function with parameter Ẹ and returns value REJET], and later 


+ invoking this function with argument 2: 


J above is called a lambda or anonymous function. Functions will be discussed in detail later. 


Double-tick identifiers 


You can create binding names containing space and symbols like E using double-tick identifiers (wD: 


Whitespace in F# 


F# code is whitespace sensitive. It uses whitespace for a block of code unlike languages such as C which use curly braces E. 


You could write your let binding as: 


or in a separate block: 


The indentation is done using space. DO NOT use tabs or else F# compiler would throw error. However, if you want to use tabs, then configure IDE to replace tabs with fixed amount of 
space. F# recommends four spaces for indentation. 


Types 


Data types in F# are called just types. Following are the categories of types in F#: 


+ Primitive type 

e Collections 

+ Discriminated Unions 
« Records 


+ Classes and Interfaces 


Discriminated Unions, Records, Classes and Interfaces will be discussed later. 


Primitive Types 


Primitive types are the most fundamental types in F#. They are the following: 


. - Possible values are [Egg or 


1 = true;; 
: bool = true 


is same as fil 


but with different name) and can also be used to declare 64-bit floating point data type: 


A 32-bit floating point type. 


float3. 


al: single 
single = 


- Unicode character values. 


= "hel 


string 


- Indicates the absence of an actual value. The type has only one formal value, which is denoted O The unit value, [ON is often used as a placeholder where a value is needed 


but no real value is available or makes sense. 


There are others as well. For full list, look up offical docs. 


String type 


* To concatenate strings: 


« Adding f in front of a string makes it a verbatim string, meaining any escape sequences are ignored, except two quotation mark characters | are considered as one quotation mark 
character Jj: 


let p 
val p: string 


ing: string = 
=the 


preserve leading whitespace and requires no escaping for double quotes i 
« To create multi-line strings without leading whitespace, use backslash: 


wultiLine: 
a multi 


string 
a multi-1 


Lir 


string 


Interpolated strings 


Interpolated strings are strings that allow you to embed F# expressions into them. For example, you can create a string with F# bindings as follows: 


string 


Interpolated strings start with J followed by the string within double quotes (MM) or triple quotes (ARMED). 


-4f{ tem. Mat 
string = " 


Tuples 


A tuple is a grouping of unnamed but ordered values, possibly of different types. 
For example: 


ay 4 Cal ) 


float * string 


Tuple's data type is represented as |. For example, tuple ff 


F] above has the type [EJ 


Tuple can hold multiple values of different data types. For instance, all values are different in 


In place of just values, tuples can also hold results of expressions: 


let name = "Hell 
string = 


string * int = 


+ You can deconstruct a tuple into separate values and store them in different bindings as follows: 


loWorld: string = " 


A and ignore the second, you could use | | wildcard in place of those values you want to ignore: 


] functions: 


string * int = 


tuple2 ;; 
string = 


Quick note about Hii 


s function signature - F# automatically converts types of parameters into a generic one like 


b'] if the type cannot be inferred. 


Collections 
Collections are data structures which can store multiple values of one or more data types. 
Lists 


A listis an immutable collection of elements of the same type. 


+ To write a list in a single line: 


e 
f] 
a] 
o 
3 
o 
5 
oa 
v 
5 
= 
fj 
3 
a 
8 
w 
= 
A 
e 
B, 
Ej 
a 
o 
° 
5 
a 
o 
3 
£ 
D 
e 
g 


lis 


string list = 


Q 
o 
3 
f] 
E] 
o 
& 
3 
D 
o 
j 
d 
2 
3 
= 
a 
j 
= 
A 
5 
a 
Lo 
o 
5 
2 
Pi 
e 
g 


O 
© 
5 
a 
S 
Pi 
ea 
© 
» 
D 
5 
cy 
© 
o 
S 
3 
= 
3 
> 
2 
a 
5 
» 
a 
fo] 
© 
3 
2 
5 
m 
Q 
a 
s 
A 
-A 
5 
m 
S 
5 
(N 
o 
o 
© 
E] 
2 
Pi 
o 
Q 


int list 


a 
» 
5 
(r 
o 
n 
o 
D 
5 
> 
D 
< 
8 
o 
H 
G 
a 
g 
3 
5 
> 
g 
2 
jan 


As observed above, ranges are end-inclusive and start-inclusive. 


Arrays 


Arrays are fixed-size, zero-based, mutable collections of consecutive data elements. 


+ Write an array of elements: 


let arrayl = [|"a 
val arrayl: string[] 


+ Access elements using index number: 


arrayl[0];; 


val it: string = "a" 


+ Mutate array elements using J operator: 


Sequences 


A sequence is a logical series of elements of the same type. Individual sequence elements are computed only as required, so a sequence can provide better performance than a list in 


situations in which not all the elements are used. 


adds one element to the sequence. 


adds a whole subsequence. For instance, 


adds element 5 till 9 to the sequence. 


Slices 


A slice is a subset of any data type. Slices use range (® operator. 


You can get various subsets of using slices: 


* Slice of elements for indices (5 inclusive): 


let slice = tenNums 
val slice: int list 


Note that in F#, index starts from 0. 


+ Slice of elements from beginning to index 5 (5 inclusive): 


let slice = tenNur 
val slice; int list 


« Slice of elements from index 5 till end of the list: 


ice = tenNums 
int list = 


Slicing works on arrays too: 


Comments 


Block comments are placed between [i and E. 


Line comments start from [JJ and continue until the end of the line. 


XML doc comments come after ///) allowing us to use XML tags to generate documentation. 


Conditional code using JRS O: Ware 


are expressions, meaning it evaluates to some value which can be assigned to a binding. 


For example, if you want to compare two numbers, you can write a function that does this using ‘if..then..else: 


pare 


string 


pare 


string 


string 


expression 


can be used to loop over values in a list: 


let multig 3 = [ for nu 
val multiplesOf3: int list 


You can also ignore loop element using wildcard I 


Notice that the start fl] and end [Mj are included in the range. 


You could also decrement counter value by 1 using instead of toy 


0 downto 1 do 


tip 


let mutable num = 1 
val mutable num: 


while num <= 20 do 
s"{num} " 


<- num + 2 


let mutable num = 1 


let p = [ while num <= 
val p: int list = [10 


Functions 


The 


keyword also defines named functions. 


For example, we will define a function named which would accept a number and multiply it with [ij and return the result: 


Notice how we didn't provide any data type to the input parameter p yet F# figured out data type from the function definition. This is yet another example of powerful type inference 
in F#. 


Sometimes, F# cannot correctly infer types, or sometimes you just want to add types for clarity. In those cases, you can provide the types as: 


Here, at the end declares the return type of B function. 


JJ declares the data type of Ẹ, while as 


Lambda (or Anonymous) functions 


You can create anonymous/Lambda functions as follows: 


In F#, lamdbas capture the values of bindings/variables in the scope in which it is defined. Meaning, if 


s defined before defining lambda function, then we can use 


lambda function definition: 


Curried Functions 


Let's write a function to add two numbers: 


let add x 
val add: 


What this means is that F# converted 


function into a function of one paramter (GEESE) which returns a function of one paramter (GBM). 


|, where indicates a function which accepts a 


+ Since type of J and ff] is BMJ, you can now understand why 
parameter fj of type and returns value of type Hi 


| function signature is BR 


indicates a function which accepts a parameter E of type and returns a function of type J 


which would always add 2] to an integer argument: 


(int => int) 


Pipe and composition operators 


Pipe operator [qj is used to chain functions and arguments together: 


You could also write 


function using composition operator BE 


>>] operator is used to compose functions is equivalent to feeding function's result to ff function, or HERE 


Recursive functions 


The 


keyword is used together with the 


keyword to define a recursive function: 


let rec factorial x 
if x < 1 then 1 


$ function and hence will throw an error. 


n= 
0 then true 
(eal) 


Pattern Matching 


Pattern matching is often facilitated through 


let rec fib 
match r 


+ [EQS means when f equals f, then return H 
o [Mis called matching pattern fj or matching arm J 
o Pattern and result expression are seperated by Fj 


« In pattern matching, all patterns should be matched against, or else F# compiler would give a warning. To add a default pattern to match against any pattern not matched by existing 
patterns, use wildcard pattern E 


o In the above recursive function, MEn atches any value of f which is not 1 or 0. 


keyword 


In order to match sophisticated inputs, one can use 


to create filters or guards on patterns: 


let sigr 
match x with 


keyword 


keyword is used to simply writing lambda functions containing 


expression as function body. For instance, you have this lambda expression to compute distance from 
origin in 1-D, 2-D and 3-D coordinate system: 


rdinate: float list -> float 


function definition using 


keyword as follows: 


float list -> float 


let rec 
match lis 


head + 


list; int list -> int 


and rest of the list 


El is called Cons pattern. Using this, we can extract head of the list 


Active Patterns 


Active Pattern helps you to categorize an input data into some named partition, so that you can use these names as a pattern in match expressions. 


For example, you can write an active pattern which would classify a number as even or odd as follows: 


num = if num 2 = 0 then Even else 


num: int -> € e<unit, unit 


+ The [f] and [symbols are called banana clips. 


e The function created above is called an active recognizer. It takes an input an returns an object of type 


Now, you can match against a number as even or odd as follows: 


let t Num num 
match num with 


Odd - rintf 


Parameterized active patterns 


The above active patterns took just the input. You can provide more arguments to active patterns using parameterized active patterns. 


For example, you can write an active pattern which would categorize an input based on whether it is divisible by another number as follows: 


leBy|_|) 
= 0 then Some sibleBy else None 


int -> num: int -> unit option 


Ñ expressions to implement FizzBuzz solution where we check what to do based on whether input is divisible by 3 or 5: 


let f 
function 


Partial Active Patterns 


Sometimes, you need to partition only part of the input space. In that case, you write a set of partial patterns each of which match some inputs but fail to match other inputs. Active 
patterns that do not always produce a value are called partial active patterns; they have a return value that is an 


To define a partial active pattern, you use a wildcard character (_) at the end of the list of patterns inside the banana clips. 


For example, suppose you want to parse a number from a string input, but would like to round float number to nearest integer. 


Records 


Records represent simple aggregates of named values, optionally with members. 


To declare a record type: 


type Person 
type Person = 


string 
int 


To create a record via record expression: 


let paulsTw 


in: 


Records can be augmented with properties and methods: 


type on with 
member x.Info 


= (x.Nam 
type son with 
member Inf 


-Info 


Properties of records, such as [Eig in record type, can't be modified by default. If you want a mutable record property, add keyword to it: 


let isPaul p 
match p 
Nam 
-> false 


Anonymous Records 


Anonymous records are like records but don't need to be declared upfront. For example, here's a function returning an anonymouus record containing diameter, area, circumference of a 
circle for a given radius: 


let area (radius 


let peri = .PI * radius 


Diameter 


Cire ; Diame 


Discriminated Unions (DU) 


Discriminated Unions are helpful to model heterogenous data, or data which can be grouped under same category but can be modeled as different types like a class or a record. 


For example, if you want to model a geometric shape which could be either a square, rectangle or a circle, you could do so using DU: 


type Shape = 
le of x 
quare of 
of 1 


type Shape 


or type and save it to a binding/variable of type 


type 


type is a discriminated union available in F# by default. Options can store a value of some type, or it does not have that value. 


[Ete is defined as: 


type ‘a option = 
Some of 'a 
None 


is a generic type parameter which could be any type. type defines two types: 


type which stores a value of type 
. type which indicates that the does not contain any value 


For example, suppose you write a function which accepts a number as an argument and returns that number if it is a positive number or no value otherwise. Such a function could be 


written using as return type: 


tPositiveNumber 
if num ) then Some r 
else None 


int -> int option 


int option 


itiveNum 


int option = None 


value and returns an 


f type 


if the value exists? For example, suppose we write a function which accepts salary option as a parameter, and we return the salary value if it 


int 


function from & module: 


int option) = 


Value 1 


There are lots of functions available in module which deal with 


type 


type can be used to handle errors in a typesafe way. A binding of 


Ji types. For full list, visit this page 


B type can accept either [J containing success data of any type, or containing error data of any 


type. 


For example, you can write a function which divides two numbers using type as follows: 


let divide x y 
then Error "Try 


int -> Result<int, string 


Result<int, string> = Ok 2 


Result<int,string> = Error "Tr 


You can pattern match against the result value to perform action based on whether the operation was successful or failed due to an error: 


Generics and Automatic Generalization 


Consider the following function definition: 


Two takeaways from this: 


« F# automatically generalized the function in the event no type could be inferred from the definition. This is called as Automatic Generalization. 


+ Since a list could have elements of the same type, both fj and 


For e.g., 


have been assigned the same generic type E. 


+ Generic types follow the conventio 


You can explicitly specify generics as: 


The function throws an exception of type 


Exception handling is done via fs] expressions. 


let divide 
try 
Some 
with 


divide i; 


int option = Some 2 


Exception thrown is tried to be downcasted to al using :?. If it is successful, then the message is printed and function returns 


i. 


Custom exceptions 


You can throw custom exceptions by first defining them using keyword: 


exception < \ Zero of string ; 


exception C videByZero of string 


accepts only string message as an argument. 


float 


exception InnerError of string ;; 
exception Inne of string 


exception Out r of string ;; 
exception Ou of string 


let handl 
try 
try 


finally 


pri 


Classes and Inheritance 


In F#, you can create classes to model data. 


For example, suppose you want to create a data structure to store a vector. You can start with create a class type: 


type Vector() = class end 


provides class name and constructor to call in order to create a 


B object via Tay 


s required if your class doesn't require any properties or methods. 


Next, we will add two class properties x] and | and will define a constructor for it: 


type Vector float, y: float) = 
member this.X = x 
member 


+ Properties and methods are defined using ff 


keyword. 


can be replaced with wildcard i if it is not required. Also, you could use or any other name in place of 


because unlike Java, FEB is not a keyword in F#. 


You can add getters and setters for E property as follows: 


let mutable y 
member _.Y 
with 
and set (new 


+ Important - declaration is & 


before it. 


binding definition should come 


We can add methods to 


+ In F#, properties and methods should start with a capital letter. 


We can also implement operations such as adding two vectors by implementing J operator via static methods: 


static member (+) 


You can also have 
member which wi 


bindings inside class definition. Such bindings won't be available outside the class and can be used to compute members' values. For example, we can define a 


store the computed magnitude of the vector: 


type Vector float, 
let magnitude 
member .m 


Notice how value of 


Ej to update value when 


nitude () 
member ag 
with get() = magnitude () 


Now, everytime you fetch | 


property, function would be executed. 


Overall, our Vector class now looks like this: 


type Vector(x : float, y : float) 


let mutable y 
let mag 


member thi 
member _.Y 
with 
and 
member .mag 
with 
member this 
SIENE 
static member 


type 
new: x: 
member 
static 
member 
member 
member 


Now, you can use class as follows: 


or or member 


Inheritance 


Call a base class from a derived one. For example, we have a base class i fl and a derived class nheriting from F class. We can call fl class methods from 


syntax: 


inherit Animal () 
member »Run() = 
base. Rest () 


Upcasting is the process of converting a child class to a parent class. It can be done using E operator. 


ig if the cast doesn't succeed at runtime: 


type 
abstract 


type 
interface I 
member 


Another way of implementing interfaces is to use object expressions. 


abstract Name 
abstract Age 


Compiler Directives 


Load another F# source file into FSI. 


Reference a .NET assembly @ symbol is recommended for Mono compatibility). 


Include a directory in assembly search paths. 


Other important directives are conditional execution in FSI (E3 
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An updated cheatsheet for F#. 


This cheatsheet glances over some of the common syntax of F#. 
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o Array, List and Seq functions 
e Acknowledgments 


Comments 


Line comments start from // and continue until the end of the line. Block comments are placed between ( * 
and *). 


XML doc comments come after /// allowing us to use XML tags to generate documentation. 
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/// The ~let~ keyword defines an (immutable) value 
let result = 1+1=2 


Strings 


The F# string type is an alias for System. String type. See Strings. 


/// Create a string using string concatenation 
let hello = "Hello" + " World" 


Use verbatim strings preceded by @ symbol to avoid escaping control characters (except escaping " by ""). 
let verbatimXml = @"<book title=""Paradise Lost"">" 
We don't even have to escape " with triple-quoted strings. 


let tripleXml = """<book title="Paradise Lost">""" 
Backslash strings indent string contents by stripping leading spaces. 


let poem = 
"The lesser world was daubed\n\ 
By a colorist of modest skill\n\ 
A master limned you in the finest inks\n\ 
And with a fresh-cut quill." 


Interpolated strings let you write code in "holes" inside of a string literal: 


let name = "Phillip" 
let age = 30 
printfn $"Name: {name}, Age: {age}" 


let str = $"A pair of braces: {{}}" 
printfn $"Name: %s{name}, Age: %d{age}" // typed 


Types and Literals 


Most numeric types have associated suffixes, e.g., uy for unsigned 8-bit integers and L for signed 64-bit 
integer. 
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let b, i, 1, ul = 86uy, 86, 86L, 86UL 


// val ul: uint64 = 86UL 
// val 1: int64 = 86L 

Li Nal anita 836 

// val b: byte = 86uy 


Other common examples are F or f for 32-bit floating-point numbers, M or m for decimals, and I for big 
integers. 


let s, f, d, bi = 4.14F, 4.14, @.7833M, 99991 


// val bi: System.Numerics.BigInteger = 9999 
// val d: decimal = @.7833M 

// val #: float = 4.14 

// val s: float32 4.14f 


See Literals for complete reference. 


and keyword is used for definining mutually recursive types and functions: 


type A = 

| Aaa of int 

| Aaaa of C 
and C = 

{ Bbb : B } 
and B() = 


member x.Bbb = Aaa 10 


Floating point and signed integer values in F# can have associated units of measure, which are typically used 
to indicate length, volume, mass, and so on: 


[<Measure>] type kg 
let m1 = 10.0<kg> 
let m2 = m1 * 2.0 // type inference for result 


let add30kg m = // type inference for input and output 
m + 30.0<kg> 
add30 2.0<kg> // val it: float<kg> = 32.0 


Printing Things 


Print things to console with print fn: 
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printfn "Hello, World" 


printfn $"The time is {System.DateTime.Now}" 


You can also use Console.WriteLine: 


open System 


Console.WriteLine $"The time is {System.DateTime.Now}" 


Constrain types with %d, %s, and print structured values with %A: 


let data = [1..10] 


printfn $"The numbers %d{1} to %d{10} are %A{data}" 
Omit holes and apply arguments: 
printfn "The numbers %d to %d are %A" 1 10 data 


See Plaintext Formatting 


Loops 
for...in 


For loops: 


let listli = [1; 5; 100; 450; 788] 


oe ak an Hasel Ce 
phintrissdii // 1 5 100 450 788 


let seql = seq { for i in 1 .. 10 -> (i, i * i) } 


for (a, asqr) in seqi do 
// 1 squared is 1 


Hi eee 
// 10 squared is 100 
printfn "%d squared is %d" a asqr 


FOR ay impels) 19 do 
printf "%d " i if A, Pr 3s ALS (5) 77 8 SY ANG) 
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Hy TAR at aly AG) ao Stl go al clo 
for i = 10 downto 1 do 
printf "ži = al H e th a E Sy aE Bh pi al 


for i inmi 2. 10 do 


printt "%d " 4 Me ia S 7E 
forsetin ran e 772° dO 
pnintr “ose C A le ES 555 2 


// Using of a wildcard character (_) 
// when the element is not needed in the loop. 
let mutable count = 0 


mele alin) dlaichesl exe) 
count <- count + 1 


while...do 
While loops: 
let mutable mutVal = @ 


while mutVal < 10 do // while (not) test-expression do 
mutVal <- mutVal + 1 


Functions 
The let keyword also defines named functions. 
let pi () = 3.14159 // function with no arguments. () is called unit type 
pi () // it's necessary to use () to call the function 
let negate x = x * -1 
let square x = x * x 
let print x = printfn $"The number is: %d{x}" 
let squareNegateThenPrint x = 
print (negate (square x)) 


Double-backtick identifiers are handy to improve readability especially in unit testing: 


let ~ "square, negate, then print” x = 
print (negate (square x)) 


Pipe operator 
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The pipe operator | > is used to chain functions and arguments together: 


let squareNegateThenPrint x = 
x |> square |> negate |> print 


This operator is essential in assisting the F# type checker by providing type information before use: 


let sumOfLengths (xs : string []) = 
xs 


|> Array.map (fun s -> s.Length) 
|> Array.sum 
Composition operator 


The composition operator >> is used to compose functions: 


let squareNegateThenPrint = 
Square >> negate >> print 


Pattern Matching 


Pattern matching is primarily through match keyword; 


let rec fib n = 
match n with 
| ð -> ð 
Ers 
l > fib (n= 1) + fib (n -~ 2) 


Use when to create filters or guards on patterns: 


let sign x = 
match x with 


| ð -> ð 
| x when x < @ -> -1 
J} x ->1 


Pattern matching can be done directly on arguments: 


let fst (x, ) =x 
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or implicitly via function keyword: 


/// Similar to `fib`; using “function for pattern matching 
let rec fib2 = function 

| @->@ 

|) tees 

| mh => fib (mn = 1) 4 fib2 (n = 2) 


See Pattern Matching. 


Collections 
Lists 


Lists are immutable collection of elements of the same type. 


// Lists use square brackets and 
There: dirtcical [Pe ey | 


~;° delimiter 
// :: is prepending 
lets t2 5 — Ss Cae ce Sit! 


// @ is concat 
let list3 = läst @ list2 


// Recursion on list using (::) operator 


let rec sum list = 
match list with 


i ne 


| x :: xs -> X + SUM xs 


Arrays 

Arrays are fixed-size, zero-based, mutable collections of consecutive data elements. 
// Arrays use square brackets with bar 
let array = Misas eban] 
// Indexed access using dot 


let firsti = array1.[0] 
let first2 = array1[@] // FH 6 


Sequences == IEnumerable 


Sequences are logical series of elements of the same type. Individual sequence elements are computed only as 
required, so a sequence can provide better performance than a list in situations in which not all the elements 
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are used. 


// Sequences can use yield and contain subsequences 


seq { 
// "yield" adds one element 


yield 1 
yield 2 


// "yield!" adds a whole subsequence 
yield! [5..10] 


The yield can normally be omitted: 


// Sequences can use yield and contain subsequences 


seq { 
al 


2 
yield! [5..10] 


Mutable Dictionaries (from BCL) 


Create a dictionary, add two entries, remove an entry, lookup an entry 


open System.Collections.Generic 
let inventory = Dictionary<string, float>() 


inventory.Add("Apples", 0.33) 
inventory.Add("Oranges", 0.5) 


inventory.Remove "Oranges" 
// Read the value. If not exists - throw exception. 


let bananas1 = inventory.["Apples"] 
let bananas2 = inventory["Apples" ] // Fit 6 


Additional F# syntax: 


// Generic type inference with Dictionary 


let inventory = Dictionary<_, >() // or let inventory = Dictionary() 


inventory.Add("Apples", 0.33) 
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dict == |Dictionary in BCL 


dict creates immutable dictionaries. You can’t add and remove items to it. 


open System.Collections.Generic 


let inventory : IDictionary<string, float> = 
["Apples", 0.33; "Oranges", @.23; "Bananas", 0.45] 


ps cbhere 
let bananas = inventory.["Bananas”" ] // 0.45 
let bananas2 = inventory["Bananas” ] // 0.45, F# 6 
inventory.Add("Pineapples", 0.85) // System.NotSupportedException 
inventory.Remove("Bananas") // System.NotSupportedException 


Quickly creating full dictionaries: 


[ "Apples", 10; "Bananas", 20; "Grapes", 15 ] |> dict |> Dictionary 


Map 


Map is an immutable key/value lookup. Allows safely add or remove items. 


let inventory = 
Map ["Apples", 0.33; "Oranges", @.23; "Bananas", 0.45] 


let apples = inventory.["Apples” ] 

let apples = inventory["Apples"] // F# 6 

let pineapples = inventory.["Pineapples" ] // KeyNotFoundException 

let pineapples = inventory["Pineapples”"] // KeyNotFoundException on F# 6 too 


let newInventory = // Creates new Map 
inventory 


|> Map.add "Pineapples" 0.87 
|> Map.remove "Apples" 


Safely access a key in a Map by using TryFind. It returns a wrapped option: 
let inventory = 


Map ["Apples", 0.33; "Oranges", 0.23; "Bananas", 0.45] 


inventory.TryFind "Apples" // option = Some 0.33 
inventory.TryFind "Unknown" // option = None 
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Useful Map functions include map, filter, partition: 


let cheapFruit, expensiveFruit = 
inventory 


|> Map.partition(fun fruit cost -> cost < 0.3) 


Dictionaries, dict, or Map? 
e Use Map as your default lookup type: 


o It's immutable 


o Has good support for F# tuples and pipelining. 


e Use the dict function 


o Quickly generate an /Dictionary to interop with BCL code. 
o To create a full Dictionary. 


e Use Dictionary: 


o If need a mutable dictionary. 


o Need specific performance requirements. (Example: tight loop performing thousands of 
additions or removals). 


Generating lists 


The same list [ 1; 3; 5; 7; 9 | can be generated in various ways. 


Dag Sa 58 Va 9 | 

P29] 

IL for i inĝ. 4 ass 2 Fale ak | 
List-init 5 (fun al => 2% i-e 1) 


The array [| 1; 3; 5; 7; 9 |] can be generated similarly: 


Ha ee oa A a II 

ii ioa29 I 

I for iino 4A => 2% 14 2 |] 
Array-ipit 5 (fun i -> 2% i+ I) 


Functions on collections 
Lists and arrays have comprehensive functions for manipulation. 


e |ist.map transforms every element of the list (or array) 
e |ist.iter iterates through a list and produces side effects 
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These and other functions are covered below. All these operations are also available for sequences. 


Tuples and Records 


A tuple is a grouping of unnamed but ordered values, possibly of different types: 
// Tuple construction 
let x = (1, "Hello") 


// Triple 
let y = ("one", "two", "three") 


// Tuple deconstruction / pattern 
let (ace bl) = x 


The first and second elements of a tuple can be obtained using fst, snd, or pattern matching: 


let c' fst (1, 2) 
let d = snd (1, 2) 


let print' tuple = 


match tuple with 
| (a, b) -> printfn "Pair %A %A" a b 


Records represent simple aggregates of named values, optionally with members: 


// Declare a record type 
type Person = { Name : string; Age : int } 


// Create a value via record expression 
let paul = { Name = "Paul"; Age = 28 } 


// ‘Copy and update' record expression 
let paulsTwin = { paul with Name = "Jim" } 


Records can be augmented with properties and methods: 


type Person with 
member x.Info = (x.Name, x.Age) 


Records are essentially sealed classes with extra topping: default immutability, structural equality, and pattern 
matching support. 
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let isPaul person = 
match person with 
| { Name = "Paul" } -> true 
| _ -> false 


Recursive Functions 


The rec keyword is used together with the let keyword to define a recursive function: 


let rec fact x = 
if x < 1 then 1 
else x * fact (x - 1) 


Mutually recursive functions (those functions which call each other) are indicated by and keyword: 


let rec even x = 
if x = ð then true 
else odd (x - 1) 


and odd x = 
if x = @ then false 
else even (x - 1) 


Discriminated Unions 


Discriminated unions (DU) provide support for values that can be one of a number of named cases, each 
possibly with different values and types. 


type Tree<'T> = 
| Node of Tree<'T> * 'T * Tree<'T> 
| Leaf 


let rec depth input = 
match input with 
| Node(1, _, r) -> 1 + max (depth 1) (depth r) 
| Leaf -> @ 


F# Core has a few built-in discriminated unions for error handling, e.g., Option and Result. 


Using Option: 


let optionPatternMatch input = 
match input with 
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| Some i -> printfn "input is an int=%d" i 
| None -> printfn "input is missing" 


optionPatternMatch (Some 1) 
optionPatternMatch None 


Using Result: 


let resultPatternMatch input = 
match input with 
| Ok i -> printfn "Success with code %d" i 
| Error e -> printfn "Error with code %d" e 


resultPatternMatch (Ok @) 
resultPatternMatch (Error 1) 


Single-case discriminated unions are often used to create type-safe abstractions with pattern matching 
support: 


type OrderId = Order of string 


// Create a DU value 
let orderId = Order "12" 


// Use pattern matching to deconstruct single-case DU 
let (Order id) = orderId 


Exceptions 


The failwith function throws an exception of type Exception. 


let divideFailwith x y = 
if y = © then 
failwith "Divisor cannot be zero." 
else x / y 


Exception handling is done via try/with expressions. 


let divide x y = 
try 
Some (x / y) 
with :? System.DivideByZeroException -> 
printfn "Division by zero!" 
None 
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The try/finally expression enables you to execute clean-up code even if a block of code throws an 
exception. Here's an example which also defines custom exceptions. 


exception InnerError of string 
exception OuterError of string 


let handleErrors x y = 
try 
try 
if x = y then raise (InnerError("inner") ) 
else raise (OuterError("outer")) 
with InnerError(str) -> 
printfn "Error1 %s" str 
finally 
printfn "Always print this." 


Classes and Inheritance 


This example is a basic class with (1) local let bindings, (2) properties, (3) methods, and (4) static members. 


type Vector(x: float, y: float) = 


let mag = sqrt(x * x + y * y) // (1) - local let binding 
member this.X = x // (2) property 

member this.Y = y // (2) property 

member this.Mag = mag // (2) property 

member this.Scale(s) = // (3) method 


yector(x t s, y” s) 
static member (+) (a : Vector, b : Vector) = // (4) static method 
Vector(a.X + b.X, a.Y + b.Y) 
Call a base class from a derived one: 
type Animal() = 
member _.Rest() = () 


type Dog() = 
inherit Animal() 
member _.Run() = 
base.Rest() 


Interfaces and Object Expressions 
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Declare [Vector interface and implement it in Vector’. 


type IVector = 
abstract Scale : float -> IVector 


type Vector(x, y) = 
interface IVector with 
member __.Scale(s) = 
Vector(x * s, y * s) :> IVector 


member __.X = X 


member _.Y= y 
Another way of implementing interfaces is to use object expressions. 


type ICustomer = 
abstract Name : string 
abstract Age : int 


let createCustomer name age = 
{ new ICustomer with 

member __.Name = name 

member __.Age = age } 


Casting and Conversions 


ime Sioa talls // float tominte——s 

int "37 // string to int = 3 

float 3 // int to float = 3.0 

float "3.1415" // string to float = 3.1415 
string 3 M SintecOoustmPinge—awse 


string 3.1415 // float to string = "3.1415" 


Upcasting is denoted by : > operator. 


let dog = Dog() 
let animal = dog :> Animal 


In many places type inference applies upcasting automatically: 


let exerciseAnimal (animal: Animal) = () 


let dog = Dog() 
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exerciseAnimal dog // no need to upcast dog to Animal 


Dynamic downcasting (: ? >) might throw an InvalidCastException if the cast doesn't succeed at runtime 


let shouldBeADog = animal :?> Dog 


Active Patterns 


Complete active patterns: 


let (|Even|Odd|) i = 
if i % 2 = @ then Even else Odd 


let testNumber i = 
match i with 
| Even -> printfn "%d is even" i 
| Odd -> printfn "%d is odd" i 


Parameterized, partial active patterns: 


let (|DivisibleBy|_|) divisor n = 
if n % divisor = @ then Some DivisibleBy else None 


let fizzBuzz input = 
match input with 
| DivisibleBy 3 & DivisibleBy 5 -> "FizzBuzz" 
| DivisibleBy 3 -> "Fizz" 
| DivisibleBy 5 -> "Buzz" 
| i -> string i 


Partial active patterns share the syntax of parameterized patterns but their active recognizers accept only one 
argument. 


Compiler Directives 


Load another F# source file into F# Interactive (dotnet fsi). 
#load "../lib/StringParsing.fs" 


Reference a .NET package: 
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#r "nuget: FSharp.Data" // latest non-beta version 
#r “nuget: FSharp.Data,Version=4.2.2" // specific version 


Specifying a package source: 


#i "nuget: https: //my-remote-package-source/index.json" 


#i """nuget: C:\path\to\my\local\source"™"" 


Reference a specific INET assembly file: 


#r "../lib/FSharp.Markdown.d11" 


Include a directory in assembly search paths: 


Gal i / TIDS 
#r "FSharp.Markdown.d1ll" 


Other important directives are conditional execution in FSI (INTERACTIVE), conditional for compiled code 
(COMPILED) and querying current directory (__ SOURCE DIRECTORY _). 


#if INTERACTIVE 


let path = _ SOURCE _DIRECTORY__ + "../lib" 
#else 

let path = "e/a f/r. /11b" 

#endif 


Useful functions 


identity function (id) 


It's useful for cases where you need a lambda like fun x -> x: 


Hesi si e hier- coillece (tun x = 6/7 [is 2353] 
mE eNe ist collectiid w aa Aa S] 


Mapping functions 


map (Array, List, Seq) 
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Converts all the items in a collection from one shape to another shape. Always returns the same number of 
items in the output collection as were passed in. 


Hi (2B 4; 6; 3; 10; 12; 14; 16; 18; 201] 
[1 .. 10] |> List.map (fun n -> n * 2) 
type Person = { Name : string; Town : string } 


let persons = 


[ 

{ Name = "Isaak"; Town = "London" } 

{ Name = "Sara"; Town = "Birmingham" } 

{ Name = "Tim"; Town = "London" } 

{ Name = "Michelle"; Town = "Manchester" } 
] 


// ["London"; "Birmingham"; "London"; "Manchester" ] 
persons |> List.map (fun person -> person. Town) 
map2, map3 (Array, List, Seq) 


map2 and map3 are variations of map that take multiple lists. The collections must have equal lengths, except 
for Seq.map2 and Seq.map3 where extra elements are ignored. 


ete sels [i 3] 
let list2 = 4; 5; 6] 
let lists = |7; 3; 9] 
Hi (S58 78 9 


(list1, list2) ||> List.map2 (fun x y -> x + y) 


mi a; Ss 16] 
(asti ise aist) |||> List. maps! (fun X y 2 -> Fy +2) 


mapi, mapi2 (Array, List, Seq) 


mapi and mapi2 - in addition to the element, the function needs to be passed the index of each element. The 
only difference mapi2 and mapi is that mapi2 works with two collections. 


let listr = [9; 12; 53; 24; 35] 


M DD (1, A A SED (3; 24)5 C 35) ] 
listie list.mapi (fun x i > (x, 1)) 


MAn: 27/3 E39] 
listis List.mapi (fun x i > x + i) 


18 / 30 


F# Cheatsheet.md 6/27/22, 2:29 AM 


eiteahi's tesla [Ose] 
let list2 = [24; 5; 2] 


Lf EOS 75, 10] 
(listi, list2): ||> List. mapi2 (fun i xy -> (+ y) * 1) 


indexed (Array, List, Seq) 


Returns a new collection whose elements are the corresponding elements of the input paired with the index 
(from 0) of each element. 


eiteeeliis tel HR; 5a 


M NCCI 25a Go 5 (CAR 2) 
let result = list1 |> Array.indexed 


iter, iter2, iteri, iteri2 (Array, List, Seq) 

iter is the same as a for loop, the function that you pass in must return unit. 
Tet Tisti =I 2 3] 
let list2 = 4; 5; 6] 


V PXeaVess als Qe Se 
lists |S list yiter (fun x => iprinth “de &) 


ie Beints an (14) a (285) T6); 
(ast list2) ||||> List.iter2 (fun < y => printf "Cd 4d); " xy) 


// Prints: ([0] = 1); ([1] = 2); ([2] = 3); 
list |> List teri (funii > printi “([4d] = d); * 1x) 


/f Points: ol- 14). (it) = 25). Cia) = 2 6): 
(lastis list2) |||>isteiteri2 (funeix yoo prince. “Ciad| = xd sd) cy) 


collect (Array, List, Seq) 


collect runs a specified function on each element and then collects the elements generated by the function 
and combines them into a new collection. 


Hi (O83 ae OR ale 28 sip “eR Ds GR ale 2p Sp úp B; ap 78 ce we alle) 
let listi = [1; 5; 101 
Jet lice =ni; 2; 3] 


list1 |> List.collect (fun elem -> [Ə .. elem]) 
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[7 e 2a 33 25°45 6; 3, 6; 9] 
1ist2 5 List. collect (Cun x => [for i in d..2 -> % > 4) 


// Example 3 
type Customer = 


{ 
TARR int 
OrderId: int list 
} 
let c1 = { Id = 1; Orderīid = [1; 21} 
let c2 = { Id = 2; OrderId = [43]} 


let c3 = { Id = 5; OrderId = [39; 56]} 
let customers = [c1; c2; c3] 


Jf a lelesae2i- 43-39) 5 6) 
let orders = customers |> List.collect(fun c -> c.OrderId) 


pairwise (Array, List, Seq) 


pairwise takes a collection and returns a new list of tuple pairs of the original adjacent items. 


Tet listi = [1; 30; 12: 20] 


MERE S C a A A 
list1 |> List.pairwise 


// [31.03 11.0; 21.0] 

[ DateTime(2010,5,1) 
DateTime(2010,6,1) 
DateTime(2010,6,12) 
DateTime(2010,7,3) ] 

|> List.pairwise 

|> List.map(fun (a, b) -> b - a) 

|> List.map(fun time -> time.TotalDays) 


windowed (Array, List, Seq) 
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Returns a list of sliding windows containing elements drawn from the input collection. Each window is 


returned as a fresh collection. Unlike pairwise the windows are collections, not tuples. 


Pi rats dois teils Tiol; teis teula beis teks etii 
['a'..'e'] |> List.windowed 3 

Grouping functions 

groupBy (Array, List, Seq) == GroupBy() in LINQ 
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groupBy works exactly as the LINQ version does. The output is a collection of simple tuples. The first element 
of the tuple is the key, and the second element is the collection of items in that group. 


type Person = 


{ 
Name: string 
Town: string 
} 
let persons = 
[ { Name = "Isaak"; Town = "London" } 
{ Name = "Sara"; Town = "Birnmingham" } 
{ Name = "Tim"; Town = "London" } 
{ Name = "Michelle"; Town = "Manchester" } ] 
// [C"London", [{ Name = "Isaak"; Town = "London" }; { Name = "Tim"; Town = 
"London" }]); 
// ("Birnmingham", [{ Name = "Sara"; Town = "Birnmingham" }]); 


// ("“Manchester", [{ Name = "Michelle"; Town = "Manchester" }]) ] 
persons |> List.groupBy (fun person -> person. Town) 


countBy (Array, List, Seq) 


A useful derivative of groupBy is countBy. This has a similar signature, but instead of returning the items in the 
group, it returns the number of items in each group. 


type Person = { Name: string; Town: string } 


let persons = 


[ 

{ Name = "Isaak"; Town = "London" } 

{ Name = "Sara"; Town = "Birnmingham" } 

{ Name = "Tim"; Town = "London" } 

{ Name = "Michelle"; Town = "Manchester" } 
] 


// [C"London", 2); ("Birnmingham", 1); ("Manchester", 1) ] 
persons |> List.countBy (fun person -> person. Town) 


partition (Array, List) 


partition use predicate and a collection; it returns two collections, partitioned based on the predicate: 


// Tupled result in two lists 
let londonPersons, otherPersons = 
persons |> List.partition(fun p -> p.Town = "London") 
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If there are no matches for either half of the split, an empty collection is returned for that half. 


chunkBySize (Array, List, Seq) 


chunkBySize groups elements into arrays (chunks) of a given size. 


Tet listi = |33; 5: 16] 


nems enis eec] |e] 
let chunkedLst = list1 |> List.chunkBySize 2 


splitAt (Array, List) 


splitAt splits an Array (List) into two parts at the index you specify. The first part ends just before the element 
at the given index; the second part starts with the element at the given index. 


Teti xs ENE 2585045 5.1] 


let lefti, righti = xs > Array- splitt 
let left2, right2 = xs |> Array.splitAt 
let left3, right3 = xs |> Array.splitAt 
let left4, right4 = xs |> Array.splitAt 


// [||] and [|1; 2; 3; 4; 5]] 
// [l1]] and []25 33 43 51] 

// [|45 23 33 45 5[] and [|] 
// InvalidOperationException 


OV eS © 


splitInto (Array, List, Seq) 
Splits the input collection into at most count chunks. 
Lf (Ag 2535-415 15, 6; 715 Es Sew 
// note that the first chunk has four elements 


[1..1@)) b List. splitinto 3 


M HES 23 si 3 53 6l 7e &la T23 te 
Poe SES pittora 


Jf (iss 21s es 415 155-65 [73 ele S Mon 
[ae 20) > Mistssplitinto. 6 


Aggregate functions 


Aggregate functions take a collection of items and merge them into a smaller collection of items (often just 
one). 


sum, average, min, max (Array, List, Seq) 


All of these functions are specialized versions of a more generalized function fold. 
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let numbers = [1.0 .. 10.0] 
let total = numbers |> List.sum 
let average = numbers |> List.average 


let max = numbers |> List.max 
let min = numbers |> List.min 


Miscellaneous functions 


find (Array, List, Seq) == Single() in LINQ 


// 55.0 
H B25 
// 10.0 
// 1.0 


find - finds the first element that matches a given condition. 


let isDivisibleBy number elem = elem % number = @ 


let input = [1 .. 10] 


input |> List.find (isDivisibleBy 5) 
input |> List.find (isDivisibleBy 11) 


findBack (Array, List, Seq) 


fis 
// KeyNotFoundException 


let isDivisibleBy number elem = elem % number = @ 


let input = [1 .. 10] 


input |> List.findBack (isDivisibleBy 4) // 8 
input |> List.findBack (isDivisibleBy 11) // KeyNotFoundException 


findIndex (Array, List, Seq) 


let isDivisibleBy number elem = elem % number = 0 


let input = [1 .. 10] 


input |> List.findIndex (isDivisibleBy 5) [14 
input |> List.findIndex (isDivisibleBy 11) // KeyNotFoundException 


findIndexBack (Array, List, Seq) 


let isDivisibleBy number elem = elem % number = ð 


let input = [1..10] 
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input |> List.findIndexBack (isDivisibleBy 3) Li 8 
input |> List.findIndexBack (isDivisibleBy 11) // KeyNotFoundException 


head, last, tail, item (Array, List, Seq) 


Returns the first, last and all-but-first items in the collection. 


let input = [15..22] 
input |> List.head PS 


input |> List.last fi D2 
input > List. tail Hi aie al7/p 1g alis)3 XG) Pale 22] 


item (Array, List, Seq) 


Gets the element at a given index. 


let input = [1..7] 


input |> List.item 5 // 6 
input |> List.item 8 // ArgumentException 


take (Array, List, Seq) 


Returns the elements of the collection up to a specified count. 


let input = [1..10] 


input |> List.take 5 Hi s 2 339 Zhe S] 
input |> List.take 11 // InvalidOperationException 


truncate (Array, List, Seq) 


Returns a collection that when enumerated returns at most N elements. 


let input = [1..10] 


input |> List.truncate 5 (EVIE 2 3p 2o S] 
input |> List.truncate 11 // [1s 2; 3; 4; 55 6; 7; 8; 9; 10] 


takeWhile (Array, List, Seq) 
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takeWhile returns each item in a new collection until it reaches an item that does not meet the predicate. 


let input = [1..10] 
input |> List.takeWhile (fun x -> x / 7 = @) Hi (ale 23 sis ae Se] 


input |> List.takeWhile (fun x -> x / 17 = @) HE Wale 2S BS AWB ISS aS 7/e ip. Ge 
10] 


skip (Array, List, Seq) 


Returns a collection that skips N elements of the underlying sequence and then yields the remaining 


elements. 


iene alinyeyhie = | fon at alg) th oe al) Ses at al |] 7 ale IR SR ale WR sige isle (eile thle 


100] 
input |> List.skip 5 // [363 49; 64; 81; 100] 
input |> List skip 11 // ArgumentException 


skipWhile (Array, List, Seq) 


Returns a collection, when iterated, skips elements of the underlying array (list, seq) while the given predicate 


returns true, and then yields the remaining elements. 


let mySeq = seq { for iini..10->i* i } // 149 16 25 36 49 64 81 100 


mySeq |> Seq.skipWhile (fun elem -> elem < 10) // 16 25 36 49 64 81 100 
mySeq |> Seq.skipWhile (fun elem -> elem < 101) // Empty seq 


exists (Array, List, Seq) 


Tests if any element of the collection satisfies the given predicate. 


let inputs = [@..3] 


inputs |> List.exists (fun elem -> elem = 3) // true 
inputs |> List.exists (fun elem -> elem = 10) // false 


exists2 (Array, List, Seq) 


Tests if any pair of corresponding elements of the collections satisfies the given predicate. The collections 
must have equal lengths, except for Seq where extra elements are ignored. 
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lletalistitoSe— [idee 5] Ii ale Ag Be dis S] 
let list@to4 = [@ .. 4] H (ae ale 28 Be 2] 
iege tail SS oo Stl oy ab] Hi Tes gi Bs Bs al] 
let stGtole— |iGeewu i Hie ie SR s sa BR al] 


(listitos.. liststo1) ib ist exists? (run ia 12°-> 17-242) // true 
(laistitos, listeto4) |||> Listexists2 (fun il i2 => il = 12) // false 
(lastitos, e listeto ist exists? (fun id 12 => a1 — 12) AG) 
ArgumentException 


forall (Array, List, Seq) 


Tests if all elements of the collection satisfy the given predicate. 


let inputs = [2; 4; 6; 8; 10] 


inputs > Mist forall (fun i > i 4% 2 
inputs |> List.forall (fun i > i % 2 


ð) // true 
ð) // false 


forall2 (Array, List, Seq) 


Returns true if all corresponding elements of the collection satisfy the given predicate pairwise. The collections 
must have equal lengths, except for Seq where extra elements are ignored. 


let Isti = [9; 1; 21] 
letmist2I=00 abs 72 
let 1st3 = |2; 1; 0] 
letelst4 = 10; 1; 2; 3] 


(asala lg e liges forali2 (hin a aA e a S A) // true 
(isti,, ists) i> ist. forall (fun i i e E2) // false 
Cistia 1s5t4) e lists foral l2 (fun; 1142-5 a1 = 112) // ArgumentException 


contains (Array, List, Seq) 
Returns true if a collection contains an equal value: 


let rushSet = ["Dirk"; "Lerxst"; "Pratt"] 
let gotSet = rushSet |> List.contains "Lerxst" // true 


filter, where (Array, List, Seq) 


Returns a new collection containing only the elements of the collection for which the given predicate returns 
true. 
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let data = 
[( Gats” ,4) 
("Tiger",5) 
("Mice",3) 
("Elephants",2) ] 


eA GeGatiSmnme 4) me (Ga Mil Geum) pl 


data |> List.filter (fun (nm, x) -> nm.Length <= 4) 
data |> List.where (fun (nm, x) -> nm.Length <= 4) 


length (Array, List, Seq) 


Returns the length of the collection. 


[1 .. 100 ] |> List.length // 100 
[ ] |> List.length // @ 
[ De 2 5 100 | | > ist sléngth j// 52 


distinctBy (Array, List, Seq) 
Returns a collection that contains no duplicate entries according to the generic hash and equality 
comparisons on the keys returned by the given key-generating function. 
let inputs = [-5 .. 10] 
id? Ne SG = =33 -25 =15 05 65 7g B3 9 13] 
inputs |> List.distinctBy (fun i -> abs i) 
distinct (Array, List, Seq) == Distinct() in LINQ 
Returns a collection that contains no duplicate entries according to generic hash and equality comparisons on 


the entries. 


[as ap es a ea a e Se distine: Hi (ae 33 Op TA] 
(ais da dg ees ale citigt dastinet // [1] 
Els elietdis tinct // error FS0030: Value restriction 


sortBy (Array, List, Seq) == OrderBy() in LINQ 
Sorts the given collection using keys given by the given projection. Keys are compared using 


Operators.compare. 


[as 4385-2; 5i | list. sortBy (fun x -> abs x) Hii \\alB aOR AiR S58" fh] 
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sort (Array, List, Seq) 


Sorts the given list using Operators.compare. 


[is 4: 83) -2; 5) |selist.sort 4// [25 teas 53. 8] 


sortByDescending (Array, List, Seq) 


[-3..3] |> List.sortByDescending (fun x -> abs x) Hi \\ehe Se S22 Pp sale als (i 


sortDescending (Array, List, Seq) 


[@..5] |> List.sortDescending iif (S83 a8 Bs 23 als ©] 


sortWith (Array, List, Seq) 


Sorts the given collection using the given comparison function. 


let Ist = Pes HRE "8R"; "8RR"; Telg Soa Pe | |g sa | el 
let sortFunction (stri: string) (str2: string) = 
if (stri.Length > str2.Length) then 
T 
else 


=1 
Dy MON os Bd Rael esa Ome Ie seee 
lst |> List.sortWith sortFunction 

Array, List and Seq functions 

allPairs (Array, List, Seq) 

Takes 2 arrays (list, seq), and returns all possible pairs of elements. 


let arri 
let arr2 


ees i M 
eases al 


(arr1, arr2) ||> Array.allPairs arri arr2 ACOTA Gyo) Ce aes iS) 
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append (Array, List, Seq) 
Combines 2 arrays (list, seq). 
let listi = [33; 5; 16] 
let list2 = [42; 23; 18] 


List.append list1 list2 Hi Taas SS aes 2hs mse ale) 


averageBy (Array, List, Seq) 


averageBy take a function as a parameter, and this function's results are used to calculate the values for the 


average. 


// val avg1 : float = 2.0 
[1..3] |> List.averageBy (fun elem -> float elem) 


// val avg2 : float = 4.666666667 
[|] 1..3 |] |> Array.averageBy (fun elem -> float (elem * elem)) 


Seq.cache 


Seq.cache creates a stored version of a sequence. Use Seg.cache to avoid reevaluation of a sequence, or when 
you have multiple threads that use a sequence, but you must make sure that each element is acted upon only 
one time. When you have a sequence that is being used by multiple threads, you can have one thread that 
enumerates and computes the values for the original sequence, and remaining threads can use the cached 
sequence. 


choose (Array, List, Seq) 


choose enables you to transform and select elements at the same time. 


let listi = [33; 5; 16] 


ff (34576; 47) 
list1 |> List.choose (fun elem -> Some(elem + 1)) 


compareWith (Array, List, Seq) 


Compare two arrays (lists, seq) by using the compareWith function. The function compares successive 
elements in turn, and stops when it encounters the first unequal pair. Any additional elements do not 
contribute to the comparison. 
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let sql =iseqd 1 1; 2 4; 5 7 } 
let sq2 = seq { 1; 2; 3; 5; 8 } 
let sq3 = iseq { 1; 3; 35 5; 2 } 


let compareSeq seq1 seq2 = 
(seq1, seq2 ||> Seq.compareWith (fun e1 e2 -> 
if e1 > e2 then 1 
elif e1 < e2 then -1 


else ð) 
let compareResult1 = compareSeq sq1 sq2 // int = 1 
let compareResult2 = compareSeq sq2 sq3 // int = -1 


concat (Array, List, Seq) 
concat is used to join any number of arrays (lists, seq). 


fe aime ise S ale De Be ais Ge ge 7s fig ©] 
lsie.Celreene |i 28 28 [ree bs ole [vs es Sail 


Array.copy 


Creates a new array that contains elements that are copied from an existing array. The copy is a shallow 
copy, which means that if the element type is a reference type, only the reference is copied, not the 
underlying object. 


let firstArray : StringBuilder array = Array.init 3 (fun index -> new 
StringBuilder("")) 
let secondArray = Array.copy firstArray 


firstArray.[@] <- new StringBuilder("Test1") 
firstArray[@] <- new StringBuilder("Testi") // F# 6 


firstArray.[1].Insert(@, "Test2") |> ignore 
firstArray[1].Insert(@, "Test2") |> ignore // F# 6 
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F# vs C# Cheat Sheet 


e Original source 


e Referenced from FSharp Cheatsheet 


type Vector(x : float, y : 
member this.X = x 
member this.Y = y 


// Usage: 

let v = Vector(10., 10.) 
let x = v.X 

let y = v.Y 


public class Vector 


{ 


private double x; 
private double y; 


public Vector(double x, double y) 


{ 
ENISI =X; 
this.y = y; 
} 


public double X 
{ 


float) = 


get => { return this.x; } 


} 
public double Y 


{ 


get { return this.y; } 


} 
} 


// Usage: 

var v = new Vector(10, 10); 
var X = V.X; 

var y = v.Y3 


Structs with properties 


Classes with properties and default constructor 
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[<Struct>] 

type Vector(x : float, y : float) = 
member this.X = x 
member this.Y = y 


// Usage: 

let v = Vector(10., 10.) 
let x = v.X 

let y = v.Y 


public struct Vector 


{ 
double x; 
double y; 
public Vector(double x, double y) 
í 
EMIS X EEX 
this.y = y; 
} 
public double X 
dl 
get { return this.x; } 
} 
public double Y 
{ 
get { return this.y; } 
} 
} 
// Usage: 


Vector v = new Vector(10, 10); 
double x = V.X; 
double y = v.Y; 


Multiple constructors 


type Vector(x : float, y : float) = 
member this.X = x 
member this.Y = y 
new(v : Vector, s) = Vector(v.X * s, v.Y * s) 


// Usage: 
let v = Vector(10., 10.) 
let w = Vector(v, @.5) 
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public class Vector 


{ 
double x; 
double y; 
public Vector(double x, double y) 
{ 
TEMES coe ES eR 
this.y = y; 
} 
public Vector(Vector v, double s) : 
Leung Sy Wows ES) 
{ 
} 
} 
// Usage: 
Vector v = new Vector(10, 10); 
Vector w = new Vector(v, 0.5); 


Member functions 


type Vector(x : float, y : 
member this.Scale(s : 


float) = 
float) = 


Vecton Cd r S y TS) 


// Usage: 


let v = Vector(10., 10.) 
let v2 = v.Scale(@.5) 


public class Vector 


{ 
double x; 
double y; 
public Vector(double x, double y) 
{ 
ENISA OS = exe 
this.y = y; 
} 
public double Scale(double s) 
{ 
return new Vector(this.x * s, 
hash Vases) 
} 
} 
// Usage: 
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Vector v = new Vector(10, 10); 
Vector v2 = v.Scale(@.5); 


Operators 


type Vector(x, y) = 
member this.X 
member this.Y = 
static member (* 

a.X * b.X + 


(a : Vector, D : Vector) = 


// Usage: 

let x = Vector(2., 2. 
let y = Vector(3., 3. 
let dg=x* y 


public class Vector 
{ 
double x; 
double y; 
public Vector(double x, double y) 
{ 
EMISIE; 
this.y = y; 
} 
public double X 
{ 
get { return this.x; } 
} 
public double Y 
{ 
get { return this.y; } 
} 
public static double operator * ( 
Vector v1, Vector v2) 


petúUnni VIX s* Woe am Wales st Ayo ie 


// Usage: 

Vector x = new Vector(2, 2); 
Vector y = new Vector(3, 3); 
double dp = x * y; 
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Static members and properties 


type Vector(x, y) 
member this.X = x 
member this.Y = y 
static member Dot(a : Vector, b : Vector) = 
Elo load ar eloie ae lai 
static member NormX = Vector(1., ©.) 


// Usage: 

let x = Vector(2.; 2.) 
let y = Vector .NormX 

let dp = Vector.Dot(x, y) 


public class Vector 


{ 
double x; 
double y; 
public Vector(double x, double y) 
{ 
ENDSE Xe =x 
this.y = y; 
} 
public double X 
{ 
get { return this.x; } 
} 
public double Y 
{ 
get { return this.y; } 
} 
public static double Dot(Vector v1, 
Vector v2) 
{ 
REGU VIX V2 Xe VALE ee VZV 
} 
public static Vector NormX 
{ 
get { return new Vector(1, ©); } 
} 
} 
// Usage: 


Vector x = new Vector(2, 2); 
Vector y = Vector .NormX; 
double dp = Vector.Dot(x, y); 
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Class properties that use let value computations in the constructor 


type Vector(x, y) = 
let mag = sqrt(x * x + y * y) 
let rad = if x = @. && y = ©. then 
Q. 
else if x >= @. then 
asin(y / mag) 
else 
(-1. * asin(y / mag)) + 
Math. PI 
member this.Mag = mag 
member this.Rad = rad 


// Usage: 

let v = Vector(10., 10.) 
let mag = v.Mag 

let rad = v.Rad 


public class Vector 
{ 
double mag = 0.0; 
double rad = @.@; 
public Vector(double x, double y) 
q 
this-mag = Math Saret E X Ey Ey); 
if (x == 0.0 && y == 0.0) rad = 0.0; 
else if (x >= 0.0) 
rad = Math.Asin(y / mag); 
else 
rad 


(-1.0 * Math.Asin(y / mag)) + Math.PI; 


} 
public double Mag 


{ 
get { return this.mag; } 


} 
public double Rad 


{ 
get { return this.rad; } 


// Usage: 

Vector v = new Vector(10, 10); 
double mag = v.Mag; 

double rad = v.Rad; 
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Class members that use private function values 


type Vector(x, y) = 

let rotate a = 
let x" = x * cos a - y * Sina 
let y' = y * sina + y * cos a 
new Vector(x', y') 

member this.RotateByDegrees(d) = 
rotate (d * Math.PI / 180.) 

member this.RotateByRadians(r) = 
rotate r 


// Usage: 

let v = Vector(10., ©.) 

let x = v.RotateByDegrees(90. ) 

let y = v.RotateByRadians(Math.PI / 6.) 


public class Vector 


{ 
double x = Q.@; 
double y = 0.0; 
Vector rotate(double a) 
{ 
double xx = this.x * Math.Cos(a) - 
this.y * Math.Sin(a); 
double yy = this.y * Math.Sin(a) + 
this.y * Math.Cos(a); 
return new Vector(xx, yy); 
} 
public Vector(double x, double y) 
{ 
CNISe X SX 
this.y = y; 
} 
public Vector RotateByDegrees(double d) 
{ 
return rotate(d * Math.PI / 180); 
} 
public Vector RotateByRadians(double r) 
{ 
return rotate(r); 
} 
} 
// Usage: 


Vector v = new Vector(10, 10); 
Vector x = v.RotateByDegrees(90.0); 
Vector y = v.RotateByRadians(Math.PI / 6.0); 
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Overloading members 


type Car() = 
member this.Drive() = 
this.Drive(10) 
O) 
member this.Drive(mph : int) = 
// Do something 
O 


// Usage: 

let c = Car() 
c.Drive() 
c.Drive(10) 


public class Car 


{ 
public void Drive() 
{ 
Drive(190); 
} 
public void Drive(int mph) 
{ 
// Do something 
} 
} 
// Usage: 
Car c = new Car(); 
c.Drive(); 


c.Drive(1@) ; 


Mutable fields in a class with get/set properties 


type MutableVector(x : float, y : float) = 

let mutable cx = x 
let mutable cy = y 
member this.X with get() = cx and 

set(v) = cx <- v 
member this.Y with get() = cy and 

set(v) = cy <- v 
member this.Length = sqrt(x * x + y * y) 


// Usage: 
let v = MutableVector(2., 2.) 
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let len1 = v.Length 
Wot 6 Be 
Wolf Ra Bo 
let len2 = v.Length 


public class MutableVector 


{ 
public MutableVector(double x, double y) 


í 
Enisi X = X; 
this. Y = y; 
J 
public double X { get; set; } 
public double Y { get; set; } 
public double Length 
Á 
get { return Math.Sqrt( 
this.X * this.X + 
ES = eNOS T 


// Usage: 

MutableVector v = new MutableVector(2.0, 2.0); 
double len1 = v.Length; 

VOX ERO 

v.Y = 3.0; 

double len2 = v.Length; 


Generic classes and function arguments 


type Factory<'T>(f : unit -> 'T) = 
member this.Create() = 


F() 


// Usage: 
let strings = Factory<string>( 
fun () -> "Hello!") 
let res = strings.Create() 
let ints = Factory<int>(fun () -> 10) 
let res = ints.Create() 


public class Factory<T> 


{ 


Func<T> creator; 
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public Factory(Func<T> F) 


{ 
this.creator = f; 
} 
public T Create() 
{ 
return this.creator(); 
} 
} 
// Usage: 


var strings = new 

Factory<string>(() => "Hello"); 
var res1 = strings.Create(); 
var ints = new Factory<int>(() => 10); 
var res2 = ints.Create(); 


Generic classes and methods 


type Container<'T>(a : 'T) = 
member this.Convert<'U>(f : 'T -> 'U) = 
fa 


// Usage: 
let c = new Container<int>(10) 
let b = c.Convert(fun a -> a.ToString()) 


public class Container<T> 


{ 


private T value; 
public Container(T t) 


{ 


this.value = t; 


} 
public U Convert<U>(Func<T, U> f) 


i 


return f(this.value) ; 


// Usage: 
Container<int> c = new Container<int>(10); 
string result = c.Convert(n => n.ToString()); 


Extension methods 
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type List<'T> with 
member this.MyExtensionMethod() = 
this |> Seq.map (fun a -> a.ToString()) 


// Usage: 


let c s [1; 2; 3] 
let d = c.MyExtensionMethod() 


public static class ExtensionMethods 


i public static IEnumerable<string> 
MyExtensionMethod<T>(this List<T> a) 
{ 
return a.Select(s => s.ToString()); 
} 
} 
// Usage: 


List<int> 1 = new Llist<int> { 1, 2,3 7; 
IEnumerable<string> res = 
1.MyExtensionMethod() ; 


Extension properties 


type List<'T> with 
member this.MyExtensionProp = 
this |> Seq.map (fun a -> a.ToString()) 


// Usage: 
let c= Iai 2 3] 
let d = c.MyExtensionProp 


// N/A. C# does not support this feature. 


Indexers 


type Table() = 
member this.Item 
with get(key : string) = int key 
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// Usage: 

let tab = Table() 
let x = tab.["10"] 
let y = tab. [127] 


public class Table 


i public int this[string key] 
{ 
get { return Convert.ToInt32(key); } 
} 
} 
// Usage: 


Table tab = new Table(); 
int x = tab["10"]; 
int y = tab["12"]; 


Indexed Properties 


type Table() = 
member this.Values 
with get(key : string) = int key 
member this.MultipleValues 
with get(key1, key2) = key1 + key2 
// Usage: 
let tab = Table() 


let x = tab.Values("10") 
let y = tab.Values("12") 
let a = tab.MultipleValues(10, 5) 


// N/A. C# does not support this feature. 


Abstract classes 


[<AbstractClass>] 

type Shape() = 
abstract Name : string with get 
abstract Scale : float -> Shape 
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publ 
‘ 


ic abstract class Shape 


public abstract string Name { get; } 
public abstract Shape Scale(double scale); 
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Derive from a base class and overriding base methods with generics 


[<AbstractClass>] 
type Shape<'T>() = 


abstract Name : string with get 
abstract Scale : float -> 'T 


type Vector(angle, mag) = 


inherit Shape<Vector>() 

member this.Angle = angle 

member this.Mag = makg 

override this.Name = "Vector" 

override this.Scale(factor) = 
Vector(angle, mag * factor) 


// Usage: 


let 
let 


v = Vector(45., 10.) 
v2 = v.Scale(@.5) 


public abstract class Shape<T> 


{ 


public abstract string Name { get; } 
public abstract T Scale(double scale); 


public class Vector : Shape<Vector> 


{ 


double angle; 
double mag; 
public double Angle {get{return angle; }} 
public double Mag {getf{return mag; }} 
public Vector(double angle, double mag) 
{ 

this.angle = angle; 

this.mag = mag; 


} 
public override string Name 
{ 

get { return "Vector"; } 
} 


public override Vector Scale(double scale) 
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í 
return new Vector(this.Angle, 
this.Mag * scale); 
} 
J 
// Usage: 


Vector v = new Vector(45, 10); 
Vector v2 = v.Scale(@.5); 


Calling a base class method 


type Animal() = 
member this.Rest() = 
// Rest for the animal 


O 


type Dog() = 
inherit Animal() 
member this.Run() = 
// Run 
base.Rest() 
// Usage: 
let brian = new Dog() 
brian.Run() 


public class Animal 


{ 
public void Rest() 
{ 
// Rest for the animal 
} 
} 
public class Dog : Animal 
{ 
public void Run() 
{ 
// Run 
base.Rest(); 
} 
} 
// Usage: 


Dog brian = new Dog(); 
brian.Run(); 


Implementing an interface 


14/19 


f# vs c#t.md 6/27/22, 2:30 AM 


type IVector = 
abstract Mag : double with get 
abstract Scale : float -> IVector 


type Vector(x, y) = 
interface IVector with 
member this.Mag = sqrt(x * x + y * y) 
member this.Scale(s) = 
Vector(x * s, y * s) :> IVector 
member this.X = x 
member this.Y = y 
// Usage: 
let v = new Vector(1., 2.) :> IVector 
let w = v.Scale(@.5) 
let mag = w.Mag 


interface IVector 
{ 
double Mag { get; } 
IVector Scale(double s); 
} 
class Vector : IVector 
{ 
double x; 
double y; 
public Vector(double x, double y) 
{ 
TEMES XIE; 
this.y = y; 
} 
public double X 
{ 
get { return this.x; } 
} 
public double Y 
{ 
get { return this.y; } 
} 
public double Mag 
{ 
get { return Math.Sqrt( this.x * this.x + 
thisay. S thisay)ic i 
} 
public IVector Scale(double s) 
{ 
return new Vector(this.x * s, 
MLS. SE 


} 
// Usage: 
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IVector v = new Vector(1, 2); 
IVector w = v.Scale(@.5); 
double mag = w.Mag; 


Implementing an interface with object expressions 


type ICustomer = 
abstract Name : string with get 
abstract Age : int with get 


let CreateCustomer name age = 
{ new ICustomer with 
member this.Name = name 
member this.Age = age 
} 
// Usage: 
let c = CreateCustomer "Snoopy" 16 
let d = CreateCustomer "Garfield" 5 


/// N/A. C# does not support creating object expressions. 


Events 


type BarkArgs(msg:string) = 
inherit EventArgs() 
member this.Message = msg 


type BarkDelegate = 
delegate of obj * BarkArgs -> unit 


type Dog() 
let ev = new Event<BarkDelegate, BarkArgs>() 


member this.Bark(msg) = 
ev.Trigger(this, new BarkArgs(msg) ) 
[<CLIEvent>] 
member this.OnBark = ev.Publish 
// Usage: 
let snoopy = new Dog() 
snoopy. OnBark.Add( 
fun ba -> printfn "%s" (ba.Message) ) 
snoopy .Bark( "Hello" ) 
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public class BarkArgs : EventArgs 


‘ 
private string msg; 
public BarkArgs(string msg) 
í 
this.msg = msg; 
} 
public string Message 
{ 
get { return this.msg; } 
} 
} 


public delegate void BarkDelegate( 
Object sender, BarkArgs args); 


class Dog 


{ 
public event BarkDelegate OnBark; 


public void Bark(string msg) 


{ 
OnBark(this, new BarkArgs(msg)); 
} 
} 
// Usage: 


Dog snoopy = new Dog(); 
snoopy.OnBark += new BarkDelegate( 
(sender, msg) => 
Console.WriteLine(msg.Message) ); 
snoopy .Bark("Hello") ; 


Explicit class constructor 


type Vector = 
val mutable x : float 
val mutable y : float 
new() = {x = @.; y = @.} 


// Usage: 

let v = Vector() 
Word > alls) 

Wo ega ala 


Explicit public fields 
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type Vector() = 
[<DefaultValue()>] 
val mutable x : int 
[<DefaultValue()>] 
val mutable y : int 


// Usage: 
let v = Vector() 
VEX <= IG 
Woy Za e 


public class Vector 


{ 
public intix; 
publictintiy; 

} 

// Usage: 

Vector v = new Vector(); 

v.x = 10; 

v.y = 10; 


Explicit struct definition 


[<Struct>] 

type Vector = 
val mutable public x : int 
val mutable public y : int 


// Usage: 
let mutable v = Vector() 
Wore ge al) 
Mow = ale] 


public struct Vector 


{ 
publice intix; 
public int y; 
} 
// Usage: 
Vector v = new Vector(); 
v.x = 10; 
v.y = 10; 
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